Software of the Month Club 1996 June/Software of the Month Club 1996 June.iso/mac/Education/Extended Calculator II/Calculator programs/Simple Mirror Drawer

Text File | 1994-01-25 | 228b | 14 lines

a:=HMouse;
b:=VMouse;
while(not(button));
    PPat(random(1,5));
    x:=HMouse;
    y:=VMouse;
    line(a,b,x,y);
    line(600-a,b,600-x,y);
    line(a,300-b,x,300-y);
    line(600-a,300-b,600-x,300-y);
    a:=x;
    b:=y;
end;